Private Sub AxWebBrowser1_NavigateComplete2(ByVal sender As Object, 
        ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) 
        Handles AxWebBrowser1.NavigateComplete2
    Dim i As Short
    Dim bFound As Boolean
    If cboAddress.Items.Count > 0 Then
        For i = 0 To cboAddress.Items.Count - 1
            If InStr(AxWebBrowser1.LocationURL, _
                cboAddress.Items.Item(i).ToString) > 0 Then
                bFound = True
                cboAddress.Items.RemoveAt(i)
                Exit For
            End If
        Next i
        mbDontNavigateNow = True
    End If
    cboAddress.Items.Insert(0, AxWebBrowser1.LocationURL)
    cboAddress.SelectedIndex = 0
    mbDontNavigateNow = False

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, 
        ByVal e As System.EventArgs) Handles Timer1.Tick
    If AxWebBrowser1.Busy = False Then
        Timer1.Enabled = False
        Me.Text = AxWebBrowser1.LocationName
    Else
        Me.Text = "Working..."
    End If

End Sub

Private Sub tbToolBar_ButtonClick(ByVal sender As System.Object, 
        ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) 
        Handles tbToolBar.ButtonClick
    Timer1.Enabled = True

    Select Case e.Button.ItemData
        Case "Back"
            AxWebBrowser1.GoBack()
        Case "Fwd"
            AxWebBrowser1.GoForward()
        Case "Refresh"
            AxWebBrowser1.Refresh()
        Case "Home"
            AxWebBrowser1.GoHome()
        Case "Search"
            AxWebBrowser1.GoSearch()
        Case "Stop"
            Timer1.Enabled = False
            AxWebBrowser1.Stop()
            Me.Text = AxWebBrowser1.LocationName
    End Select
End Sub

Private Sub cboAddress_KeyPress(ByVal sender As Object, 
        ByVal e As System.Windows.Forms.KeyPressEventArgs) 
        Handles cboAddress.KeyPress
    Dim KeyAscii As Short = Asc(e.KeyChar)
    If KeyAscii = System.Windows.Forms.Keys.Return Then
        cboAddress_SelectedIndexChanged(cboAddress, New System.EventArgs())
    End If
    If KeyAscii = 0 Then
        e.Handled = True
    End If

End Sub

Private Sub cboAddress_SelectedIndexChanged(ByVal sender As Object, 
        ByVal e As System.EventArgs) Handles cboAddress.SelectedIndexChanged
    If mbDontNavigateNow Then Exit Sub
    Timer1.Enabled = True
    AxWebBrowser1.Navigate(cboAddress.Text)

End Sub

Private Sub Form1_Load(ByVal sender As Object, 
        ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Show()

    Form1_Resize(Me.ActiveForm, New System.EventArgs())
    If Len(StartingAddress) > 0 Then
        cboAddress.Text = StartingAddress
        Timer1.Enabled = True
        AxWebBrowser1.Navigate(StartingAddress)
    End If

End Sub

Private Sub Form1_Resize(ByVal sender As Object, 
        ByVal e As System.EventArgs) Handles MyBase.Resize
    cboAddress.Width = Me.ClientRectangle.Width
    AxWebBrowser1.Width = Me.ClientRectangle.Width
    AxWebBrowser1.Height = Me.ClientRectangle.Height - _
                    (picAddress.Top + picAddress.Height)
    picAddress.Top = tbToolBar.Top + tbToolBar.Height
    picAddress.Left = 0

End Sub
